/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / DOGTRK.BIN / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 52 45 4d 22 8d 93 | 2a 2a 4a 55 53 54 20 52 |1 REM"..|**JUST R|
|00000010| 55 4e 20 49 54 20 2a 20 | 44 4f 4e 27 54 20 52 45 |UN IT * |DON'T RE|
|00000020| 41 44 20 49 54 2a 2a 20 | 20 20 20 20 20 20 20 20 |AD IT** |        |
|00000030| 20 47 52 45 45 54 49 4e | 47 53 20 46 52 4f 4d 20 | GREETIN|GS FROM |
|00000040| 57 45 53 54 20 56 49 52 | 47 49 4e 49 41 00 0a 32 |WEST VIR|GINIA..2|
|00000050| 20 52 45 4d 2a 2a 2a 45 | 52 52 4f 52 2a 2a 2a 0a | REM***E|RROR***.|
|00000060| 33 20 50 52 49 4e 54 20 | 22 93 13 22 0a 31 30 20 |3 PRINT |"..".10 |
|00000070| 50 52 49 4e 54 20 22 93 | 13 22 3a 50 52 49 4e 54 |PRINT ".|.":PRINT|
|00000080| 20 3a 50 52 49 4e 54 20 | 22 12 20 20 20 20 20 57 | :PRINT |".     W|
|00000090| 49 4c 53 4f 4e 27 53 20 | 44 4f 47 20 54 52 41 43 |ILSON'S |DOG TRAC|
|000000a0| 4b 20 42 45 54 20 50 52 | 45 44 49 43 54 4f 52 20 |K BET PR|EDICTOR |
|000000b0| 20 20 22 0a 32 30 20 50 | 52 49 4e 54 3a 50 52 49 |  ".20 P|RINT:PRI|
|000000c0| 4e 54 3a 50 52 49 4e 54 | 20 22 12 20 20 20 20 20 |NT:PRINT| ".     |
|000000d0| 2a 2a 2a 2a 2a 20 20 42 | 59 20 4d 49 4b 45 20 57 |*****  B|Y MIKE W|
|000000e0| 49 4c 53 4f 4e 20 20 2a | 2a 2a 2a 2a 20 20 20 20 |ILSON  *|****    |
|000000f0| 20 20 20 22 0a 33 30 20 | 50 52 49 4e 54 3a 49 4e |   ".30 |PRINT:IN|
|00000100| 50 55 54 20 22 57 48 41 | 54 20 52 41 43 45 20 49 |PUT "WHA|T RACE I|
|00000110| 53 20 54 48 49 53 20 28 | 31 2c 32 2c 33 2c 45 54 |S THIS (|1,2,3,ET|
|00000120| 43 29 22 3b 48 24 0a 33 | 31 20 50 52 49 4e 54 3a |C)";H$.3|1 PRINT:|
|00000130| 50 52 49 4e 54 20 22 54 | 4f 20 53 54 41 52 54 20 |PRINT "T|O START |
|00000140| 54 41 42 55 4c 41 54 49 | 4f 4e 20 4f 46 20 52 41 |TABULATI|ON OF RA|
|00000150| 43 45 20 23 22 3b 48 24 | 3b 22 20 50 52 45 53 53 |CE #";H$|;" PRESS|
|00000160| 20 41 4e 59 20 4b 45 59 | 22 0a 33 35 20 47 45 54 | ANY KEY|".35 GET|
|00000170| 20 51 24 3a 49 46 20 51 | 24 3d 22 22 20 54 48 45 | Q$:IF Q|$="" THE|
|00000180| 4e 20 33 35 0a 32 30 30 | 30 20 50 52 49 4e 54 20 |N 35.200|0 PRINT |
|00000190| 22 13 93 22 3a 50 52 49 | 4e 54 3a 50 52 49 4e 54 |"..":PRI|NT:PRINT|
|000001a0| 20 22 12 50 41 53 54 20 | 54 52 41 43 4b 20 52 45 | ".PAST |TRACK RE|
|000001b0| 53 55 4c 54 53 92 22 0a | 32 30 31 30 20 50 52 49 |SULTS.".|2010 PRI|
|000001c0| 4e 54 3a 50 52 49 4e 54 | 3a 0a 32 30 32 30 20 49 |NT:PRINT|:.2020 I|
|000001d0| 4e 50 55 54 20 22 44 4f | 47 20 31 20 2d 20 57 49 |NPUT "DO|G 1 - WI|
|000001e0| 4e 53 22 3b 4a 0a 32 30 | 33 30 20 49 4e 50 55 54 |NS";J.20|30 INPUT|
|000001f0| 20 22 44 4f 47 20 31 20 | 2d 20 50 4c 41 43 45 22 | "DOG 1 |- PLACE"|
|00000200| 3b 4b 0a 32 30 34 30 20 | 49 4e 50 55 54 20 22 44 |;K.2040 |INPUT "D|
|00000210| 4f 47 20 31 20 2d 20 53 | 48 4f 57 20 22 3b 4c 0a |OG 1 - S|HOW ";L.|
|00000220| 32 30 35 30 20 49 4e 50 | 55 54 20 22 44 4f 47 20 |2050 INP|UT "DOG |
|00000230| 31 20 2d 20 54 4f 54 41 | 4c 20 54 49 4d 45 53 20 |1 - TOTA|L TIMES |
|00000240| 52 41 4e 20 22 3b 4d 0a | 32 30 36 30 20 4e 3d 4a |RAN ";M.|2060 N=J|
|00000250| 2b 4b 2b 4c 3a 20 4f 3d | 4e 2f 4d 0a 32 30 37 30 |+K+L: O=|N/M.2070|
|00000260| 20 50 52 49 4e 54 20 22 | 13 93 22 3a 49 4e 50 55 | PRINT "|..":INPU|
|00000270| 54 20 22 44 4f 47 20 32 | 20 2d 20 57 49 4e 53 20 |T "DOG 2| - WINS |
|00000280| 22 3b 50 0a 32 30 38 30 | 20 49 4e 50 55 54 20 22 |";P.2080| INPUT "|
|00000290| 44 4f 47 20 32 20 2d 20 | 50 4c 41 43 45 53 a0 22 |DOG 2 - |PLACES."|
|000002a0| 3b 51 0a 32 30 39 30 20 | 49 4e 50 55 54 20 22 44 |;Q.2090 |INPUT "D|
|000002b0| 4f 47 20 32 20 2d 20 53 | 48 4f 57 20 22 3b 52 0a |OG 2 - S|HOW ";R.|
|000002c0| 32 31 30 30 20 49 4e 50 | 55 54 20 22 44 4f 47 20 |2100 INP|UT "DOG |
|000002d0| 32 20 2d 20 54 4f 54 41 | 4c 20 54 49 4d 45 53 20 |2 - TOTA|L TIMES |
|000002e0| 52 41 4e 20 22 3b 53 0a | 32 32 30 30 20 54 3d 50 |RAN ";S.|2200 T=P|
|000002f0| 2b 51 2b 52 3a 20 55 3d | 54 2f 53 0a 32 33 31 30 |+Q+R: U=|T/S.2310|
|00000300| 20 50 52 49 4e 54 20 22 | 13 93 22 3a 49 4e 50 55 | PRINT "|..":INPU|
|00000310| 54 20 22 44 4f 47 20 33 | 20 2d 20 57 49 4e 53 20 |T "DOG 3| - WINS |
|00000320| 22 3b 56 0a 32 33 31 35 | 20 49 4e 50 55 54 20 22 |";V.2315| INPUT "|
|00000330| 44 4f 47 20 33 20 2d 20 | 50 4c 41 43 45 53 20 22 |DOG 3 - |PLACES "|
|00000340| 3b 57 0a 32 33 32 30 20 | 49 4e 50 55 54 20 22 44 |;W.2320 |INPUT "D|
|00000350| 4f 47 20 33 20 2d 20 53 | 48 4f 57 53 20 22 3b 58 |OG 3 - S|HOWS ";X|
|00000360| 0a 32 33 33 30 20 49 4e | 50 55 54 20 22 44 4f 47 |.2330 IN|PUT "DOG|
|00000370| 20 33 20 2d 20 54 4f 54 | 41 4c 20 54 49 4d 45 53 | 3 - TOT|AL TIMES|
|00000380| 20 52 41 4e 22 3b 59 0a | 32 33 34 30 20 5a 3d 56 | RAN";Y.|2340 Z=V|
|00000390| 2b 57 2b 58 3a 41 41 3d | 5a 2f 59 0a 32 33 35 30 |+W+X:AA=|Z/Y.2350|
|000003a0| 20 50 52 49 4e 54 20 22 | 13 93 22 3a 49 4e 50 55 | PRINT "|..":INPU|
|000003b0| 54 20 22 44 4f 47 20 34 | 20 2d 20 57 49 4e 53 20 |T "DOG 4| - WINS |
|000003c0| 22 3b 42 42 0a 32 33 36 | 30 20 49 4e 50 55 54 20 |";BB.236|0 INPUT |
|000003d0| 22 44 4f 47 20 34 20 2d | 20 53 48 4f 57 53 20 22 |"DOG 4 -| SHOWS "|
|000003e0| 3b 43 43 0a 32 33 37 30 | 20 49 4e 50 55 54 20 22 |;CC.2370| INPUT "|
|000003f0| 44 4f 47 20 34 20 2d 20 | 50 4c 41 43 45 53 20 22 |DOG 4 - |PLACES "|
|00000400| 3b 44 44 0a 32 33 38 30 | 20 49 4e 50 55 54 20 22 |;DD.2380| INPUT "|
|00000410| 44 4f 47 20 34 20 2d 20 | 54 4f 54 41 4c 20 54 49 |DOG 4 - |TOTAL TI|
|00000420| 4d 45 53 20 52 41 4e 22 | 3b 45 45 0a 32 33 39 30 |MES RAN"|;EE.2390|
|00000430| 20 46 46 3d 43 43 2b 44 | 44 2b 42 42 3a 47 47 3d | FF=CC+D|D+BB:GG=|
|00000440| 46 46 2f 45 45 0a 32 34 | 30 30 20 50 52 49 4e 54 |FF/EE.24|00 PRINT|
|00000450| 20 22 13 93 22 0a 32 34 | 31 30 20 49 4e 50 55 54 | "..".24|10 INPUT|
|00000460| 20 22 44 4f 47 20 35 20 | 2d 20 57 49 4e 53 22 3b | "DOG 5 |- WINS";|
|00000470| 48 48 0a 32 34 32 30 20 | 49 4e 50 55 54 20 22 44 |HH.2420 |INPUT "D|
|00000480| 4f 47 20 35 20 2d 20 50 | 4c 41 43 45 53 20 22 3b |OG 5 - P|LACES ";|
|00000490| 49 49 0a 32 34 33 30 20 | 49 4e 50 55 54 20 22 44 |II.2430 |INPUT "D|
|000004a0| 4f 47 20 35 20 2d 20 53 | 48 4f 57 53 20 22 3b 4a |OG 5 - S|HOWS ";J|
|000004b0| 4a 0a 32 34 34 30 20 49 | 4e 50 55 54 20 22 44 4f |J.2440 I|NPUT "DO|
|000004c0| 47 20 35 20 2d 20 54 4f | 54 41 4c 20 54 49 4d 45 |G 5 - TO|TAL TIME|
|000004d0| 53 20 52 41 4e 22 3b 4b | 4b 0a 32 34 35 30 20 4c |S RAN";K|K.2450 L|
|000004e0| 4c 3d 48 48 2b 49 49 2b | 4a 4a 3a 4d 4d 3d 4c 4c |L=HH+II+|JJ:MM=LL|
|000004f0| 2f 4b 4b 0a 32 34 36 30 | 20 50 52 49 4e 54 20 22 |/KK.2460| PRINT "|
|00000500| 13 93 22 3a 49 4e 50 55 | 54 20 22 44 4f 47 20 36 |..":INPU|T "DOG 6|
|00000510| 20 2d 20 57 49 4e 53 a0 | 22 3b 4e 4e 0a 32 34 37 | - WINS.|";NN.247|
|00000520| 30 20 49 4e 50 55 54 20 | 22 44 4f 47 20 36 20 2d |0 INPUT |"DOG 6 -|
|00000530| 20 50 4c 41 43 45 53 20 | 22 3b 4f 4f 0a 32 34 38 | PLACES |";OO.248|
|00000540| 30 20 49 4e 50 55 54 20 | 22 44 4f 47 20 36 20 2d |0 INPUT |"DOG 6 -|
|00000550| 20 53 48 4f 57 09 00 22 | 3b 50 50 0a 32 35 39 30 | SHOW.."|;PP.2590|
|00000560| 20 49 4e 50 55 54 20 22 | 44 4f 47 20 36 20 2d 20 | INPUT "|DOG 6 - |
|00000570| 54 4f 54 41 4c 20 54 49 | 4d 45 53 20 52 41 4e 20 |TOTAL TI|MES RAN |
|00000580| 22 3b 51 51 0a 32 36 30 | 30 20 52 52 3d 4e 4e 2b |";QQ.260|0 RR=NN+|
|00000590| 4f 4f 2b 50 50 3a 53 53 | 3d 52 52 2f 51 51 0a 32 |OO+PP:SS|=RR/QQ.2|
|000005a0| 36 31 30 20 50 52 49 4e | 54 20 22 13 93 22 0a 32 |610 PRIN|T "..".2|
|000005b0| 36 32 30 20 49 4e 50 55 | 54 20 22 44 4f 47 20 37 |620 INPU|T "DOG 7|
|000005c0| 20 2d 20 57 49 4e 53 a0 | 22 3b 54 54 0a 32 36 33 | - WINS.|";TT.263|
|000005d0| 30 20 49 4e 50 55 54 20 | 22 44 4f 47 20 37 20 2d |0 INPUT |"DOG 7 -|
|000005e0| 20 50 4c 41 43 45 53 20 | 22 3b 55 55 0a 32 36 34 | PLACES |";UU.264|
|000005f0| 30 20 49 4e 50 55 54 20 | 22 44 4f 47 20 37 20 2d |0 INPUT |"DOG 7 -|
|00000600| 20 53 48 4f 57 53 20 22 | 3b 56 56 0a 32 36 35 30 | SHOWS "|;VV.2650|
|00000610| 20 49 4e 50 55 54 20 22 | 44 4f 47 20 37 20 2d 20 | INPUT "|DOG 7 - |
|00000620| 54 4f 54 41 4c 20 54 49 | 4d 45 53 20 52 41 4e 20 |TOTAL TI|MES RAN |
|00000630| 22 3b 57 57 0a 32 36 36 | 30 20 58 58 3d 54 54 2b |";WW.266|0 XX=TT+|
|00000640| 55 55 2b 56 56 3a 59 59 | 3d 58 58 2f 57 57 0a 32 |UU+VV:YY|=XX/WW.2|
|00000650| 36 37 30 20 50 52 49 4e | 54 20 22 13 93 22 3a 49 |670 PRIN|T "..":I|
|00000660| 4e 50 55 54 20 22 44 4f | 47 20 38 20 2d 20 57 49 |NPUT "DO|G 8 - WI|
|00000670| 4e 53 20 22 3b 5a 5a 0a | 32 36 38 30 20 49 4e 50 |NS ";ZZ.|2680 INP|
|00000680| 55 54 20 22 44 4f 47 20 | 38 20 2d 20 50 4c 41 43 |UT "DOG |8 - PLAC|
|00000690| 45 53 20 22 3b 41 42 0a | 32 36 39 30 20 49 4e 50 |ES ";AB.|2690 INP|
|000006a0| 55 54 20 22 44 4f 47 20 | 38 20 2d 20 53 48 4f 57 |UT "DOG |8 - SHOW|
|000006b0| 53 20 22 3b 41 43 0a 32 | 37 30 30 20 49 4e 50 55 |S ";AC.2|700 INPU|
|000006c0| 54 20 22 44 4f 47 20 38 | 20 2d 20 54 4f 54 41 4c |T "DOG 8| - TOTAL|
|000006d0| 20 54 49 4d 45 53 20 52 | 41 4e 20 22 3b 41 44 0a | TIMES R|AN ";AD.|
|000006e0| 32 37 31 30 20 41 45 3d | 41 42 2b 41 43 2b 5a 5a |2710 AE=|AB+AC+ZZ|
|000006f0| 3a 41 46 3d 41 45 2f 41 | 44 0a 32 37 32 30 20 50 |:AF=AE/A|D.2720 P|
|00000700| 52 49 4e 54 20 22 93 13 | 22 3a 50 52 49 4e 54 20 |RINT "..|":PRINT |
|00000710| 22 59 4f 55 52 20 44 41 | 54 41 20 49 53 20 42 45 |"YOUR DA|TA IS BE|
|00000720| 49 4e 47 20 54 41 42 55 | 4c 41 54 45 44 20 22 3a |ING TABU|LATED ":|
|00000730| 46 4f 52 20 43 54 3d 31 | 20 54 4f 20 31 30 30 30 |FOR CT=1| TO 1000|
|00000740| 3a 4e 45 58 54 0a 33 30 | 30 30 20 50 52 49 4e 54 |:NEXT.30|00 PRINT|
|00000750| 20 22 93 13 22 3a 50 52 | 49 4e 54 20 22 54 48 45 | "..":PR|INT "THE|
|00000760| 20 54 4f 54 41 4c 20 50 | 45 52 43 45 4e 54 41 47 | TOTAL P|ERCENTAG|
|00000770| 45 20 43 41 4c 43 55 4c | 41 54 49 4f 4e 53 20 4f |E CALCUL|ATIONS O|
|00000780| 46 20 20 20 20 45 41 43 | 48 20 44 4f 47 20 41 52 |F    EAC|H DOG AR|
|00000790| 45 3a 22 0a 33 30 38 30 | 20 50 52 49 4e 54 3a 50 |E:".3080| PRINT:P|
|000007a0| 52 49 4e 54 3a 50 52 49 | 4e 54 20 22 44 4f 47 20 |RINT:PRI|NT "DOG |
|000007b0| 31 3a 20 09 00 b5 28 4f | ac 31 30 30 29 3b 22 25 |1: ...(O|.100);"%|
|000007c0| 22 00 0a 33 30 39 30 20 | 50 52 49 4e 54 20 22 44 |"..3090 |PRINT "D|
|000007d0| 4f 47 20 32 3a 20 22 3b | 49 4e 54 28 55 2a 31 30 |OG 2: ";|INT(U*10|
|000007e0| 30 29 3b 22 25 22 0a 33 | 31 30 30 20 50 52 49 4e |0);"%".3|100 PRIN|
|000007f0| 54 20 22 44 4f 47 20 33 | 3a 20 22 3b 49 4e 54 28 |T "DOG 3|: ";INT(|
|00000800| 41 41 2a 31 30 30 29 3b | 22 25 22 0a 33 31 31 30 |AA*100);|"%".3110|
|00000810| 20 50 52 49 4e 54 20 22 | 44 4f 47 20 34 3a 20 22 | PRINT "|DOG 4: "|
|00000820| 3b 49 4e 54 28 47 47 2a | 31 30 30 29 3b 22 25 22 |;INT(GG*|100);"%"|
|00000830| 0a 33 31 31 35 20 50 52 | 49 4e 54 20 22 44 4f 47 |.3115 PR|INT "DOG|
|00000840| 20 35 3a 20 22 3b 49 4e | 54 28 4d 4d 2a 31 30 30 | 5: ";IN|T(MM*100|
|00000850| 29 3b 22 25 22 0a 33 31 | 32 30 20 50 52 49 4e 54 |);"%".31|20 PRINT|
|00000860| 20 22 44 4f 47 20 36 3a | 20 22 3b 49 4e 54 28 53 | "DOG 6:| ";INT(S|
|00000870| 53 2a 31 30 30 29 3b 22 | 25 22 0a 33 31 33 30 20 |S*100);"|%".3130 |
|00000880| 50 52 49 4e 54 20 22 44 | 4f 47 20 37 3a 20 22 3b |PRINT "D|OG 7: ";|
|00000890| 49 4e 54 28 59 59 2a 31 | 30 30 29 3b 22 25 22 0a |INT(YY*1|00);"%".|
|000008a0| 33 31 34 30 20 50 52 49 | 4e 54 20 22 44 4f 47 20 |3140 PRI|NT "DOG |
|000008b0| 38 3a 20 22 3b 49 4e 54 | 28 41 46 2a 31 30 30 29 |8: ";INT|(AF*100)|
|000008c0| 3b 22 25 22 0a 33 31 35 | 30 20 50 52 49 4e 54 3a |;"%".315|0 PRINT:|
|000008d0| 50 52 49 4e 54 3a 50 52 | 49 4e 54 20 22 50 52 45 |PRINT:PR|INT "PRE|
|000008e0| 53 53 20 12 46 2d 31 92 | 20 4b 45 59 20 54 4f 20 |SS .F-1.| KEY TO |
|000008f0| 43 41 4c 43 55 4c 41 54 | 45 20 4e 45 57 20 44 4f |CALCULAT|E NEW DO|
|00000900| 47 20 20 20 20 20 20 53 | 54 41 54 49 53 54 49 43 |G      S|TATISTIC|
|00000910| 53 22 0a 33 31 35 35 20 | 50 52 49 4e 54 3a 50 52 |S".3155 |PRINT:PR|
|00000920| 49 4e 54 3a 50 52 49 4e | 54 20 22 50 52 45 53 53 |INT:PRIN|T "PRESS|
|00000930| 20 12 46 2d 37 92 20 46 | 4f 52 20 50 52 49 4e 54 | .F-7. F|OR PRINT|
|00000940| 4f 55 54 20 4f 46 20 44 | 4f 47 53 20 49 4e 20 52 |OUT OF D|OGS IN R|
|00000950| 41 43 45 20 20 23 22 3b | 48 24 0a 33 31 36 30 20 |ACE  #";|H$.3160 |
|00000960| 47 45 54 20 47 24 3a 49 | 46 20 47 24 3d 22 22 54 |GET G$:I|F G$=""T|
|00000970| 48 45 4e 20 33 31 36 30 | 0a 33 31 37 30 20 49 46 |HEN 3160|.3170 IF|
|00000980| 20 47 24 3d 22 85 22 54 | 48 45 4e 20 47 4f 54 4f | G$="."T|HEN GOTO|
|00000990| 20 31 30 0a 33 31 38 30 | 20 49 46 20 47 24 3d 22 | 10.3180| IF G$="|
|000009a0| 88 22 54 48 45 4e 20 47 | 4f 54 4f 20 34 30 30 30 |."THEN G|OTO 4000|
|000009b0| 0a 33 31 39 30 20 47 4f | 54 4f 20 33 31 36 30 0a |.3190 GO|TO 3160.|
|000009c0| 34 30 30 30 20 50 52 49 | 4e 54 20 22 13 93 22 0a |4000 PRI|NT "..".|
|000009d0| 34 30 30 31 20 50 52 49 | 4e 54 3a 50 52 49 4e 54 |4001 PRI|NT:PRINT|
|000009e0| 22 13 93 22 3a 50 52 49 | 4e 54 20 22 12 52 41 43 |"..":PRI|NT ".RAC|
|000009f0| 45 92 20 22 3b 48 24 0a | 34 30 30 32 20 50 52 49 |E. ";H$.|4002 PRI|
|00000a00| 4e 54 20 3a 50 52 49 4e | 54 0a 34 30 30 33 20 50 |NT :PRIN|T.4003 P|
|00000a10| 52 49 4e 54 20 22 54 48 | 45 20 54 4f 54 41 4c 20 |RINT "TH|E TOTAL |
|00000a20| 50 45 52 43 45 4e 54 41 | 47 45 20 43 41 4c 43 55 |PERCENTA|GE CALCU|
|00000a30| 4c 41 54 49 4f 4e 20 46 | 4f 52 09 00 41 43 48 20 |LATION F|OR..ACH |
|00000a40| 44 4f 47 20 49 53 20 41 | 53 20 46 4f 4c 4c 4f 57 |DOG IS A|S FOLLOW|
|00000a50| 53 3a 22 0a 34 30 31 30 | 20 4f 50 45 4e 20 31 2c |S:".4010| OPEN 1,|
|00000a60| 34 3a 43 4d 44 31 3a 50 | 52 49 4e 54 22 12 52 41 |4:CMD1:P|RINT".RA|
|00000a70| 43 45 20 22 3b 48 24 3a | 0a 34 30 31 31 20 50 52 |CE ";H$:|.4011 PR|
|00000a80| 49 4e 54 20 22 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |INT "***|********|
|00000a90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000aa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 22 0a 34 |********|*****".4|
|00000ab0| 30 31 32 20 50 52 49 4e | 54 3a 50 52 49 4e 54 0a |012 PRIN|T:PRINT.|
|00000ac0| 34 30 31 33 20 50 52 49 | 4e 54 20 22 54 48 45 20 |4013 PRI|NT "THE |
|00000ad0| 50 45 52 43 45 4e 54 41 | 47 45 20 43 41 4c 43 55 |PERCENTA|GE CALCU|
|00000ae0| 4c 41 54 49 4f 4e 20 46 | 4f 52 20 45 41 43 48 20 |LATION F|OR EACH |
|00000af0| 44 4f 47 20 49 4e 20 52 | 41 43 45 20 4e 55 4d 42 |DOG IN R|ACE NUMB|
|00000b00| 45 52 20 22 3b 48 24 3b | 22 20 49 53 3a 22 0a 34 |ER ";H$;|" IS:".4|
|00000b10| 30 32 30 20 50 52 49 4e | 54 0a 34 30 32 31 20 50 |020 PRIN|T.4021 P|
|00000b20| 52 49 4e 54 0a 34 30 32 | 32 20 50 52 49 4e 54 22 |RINT.402|2 PRINT"|
|00000b30| 20 20 20 20 20 20 20 4f | 56 45 52 41 4c 4c 25 20 |       O|VERALL% |
|00000b40| 20 20 20 20 20 20 57 49 | 4e 25 20 20 20 20 20 20 |      WI|N%      |
|00000b50| 20 20 20 50 4c 41 43 45 | 25 20 20 20 20 20 20 20 |   PLACE|%       |
|00000b60| 20 53 48 4f 57 25 20 22 | 0a 34 30 32 33 20 50 52 | SHOW% "|.4023 PR|
|00000b70| 49 4e 54 3a 50 52 49 4e | 54 0a 34 30 32 35 20 50 |INT:PRIN|T.4025 P|
|00000b80| 52 49 4e 54 22 44 4f 47 | 20 31 3a 20 22 3b 49 4e |RINT"DOG| 1: ";IN|
|00000b90| 54 28 4f 2a 31 30 30 29 | 3b 22 25 22 2c 49 4e 54 |T(O*100)|;"%",INT|
|00000ba0| 28 4a 2f 4d 2a 31 30 30 | 29 20 20 20 2c 49 4e 54 |(J/M*100|)   ,INT|
|00000bb0| 28 4b 2f 4d 2a 31 30 30 | 29 2c 49 4e 54 28 4c 2f |(K/M*100|),INT(L/|
|00000bc0| 4d 2a 31 30 30 29 0a 34 | 30 33 30 20 50 52 49 4e |M*100).4|030 PRIN|
|00000bd0| 54 22 44 4f 47 20 32 3a | 20 22 3b 49 4e 54 28 55 |T"DOG 2:| ";INT(U|
|00000be0| 2a 31 30 30 29 3b 22 25 | 22 2c 49 4e 54 28 50 2f |*100);"%|",INT(P/|
|00000bf0| 53 2a 31 30 30 29 20 20 | 20 2c 49 4e 54 28 51 2f |S*100)  | ,INT(Q/|
|00000c00| 53 2a 31 30 30 29 2c 49 | 4e 54 28 52 2f 53 2a 31 |S*100),I|NT(R/S*1|
|00000c10| 30 30 29 0a 34 30 34 30 | 20 50 52 49 4e 54 22 44 |00).4040| PRINT"D|
|00000c20| 4f 47 20 33 3a 20 22 3b | 49 4e 54 28 41 41 2a 31 |OG 3: ";|INT(AA*1|
|00000c30| 30 30 29 3b 22 25 22 2c | 49 4e 54 28 56 2f 59 2a |00);"%",|INT(V/Y*|
|00000c40| 31 30 30 29 20 20 20 2c | 49 4e 54 28 57 2f 59 2a |100)   ,|INT(W/Y*|
|00000c50| 31 30 30 29 2c 49 4e 54 | 28 58 2f 59 2a 31 30 30 |100),INT|(X/Y*100|
|00000c60| 29 0a 34 30 35 30 20 50 | 52 49 4e 54 22 44 4f 47 |).4050 P|RINT"DOG|
|00000c70| 20 34 3a 20 22 3b 49 4e | 54 28 47 47 2a 31 30 30 | 4: ";IN|T(GG*100|
|00000c80| 29 3b 22 25 22 2c 49 4e | 54 28 42 42 2f 45 45 2a |);"%",IN|T(BB/EE*|
|00000c90| 31 30 30 29 2c 49 4e 54 | 28 43 43 2f 45 45 2a 31 |100),INT|(CC/EE*1|
|00000ca0| 30 09 0a 34 30 36 30 20 | 50 52 49 4e 54 22 44 4f |0..4060 |PRINT"DO|
|00000cb0| 47 20 35 3a 20 22 3b 49 | 4e 54 28 4d 4d 2a 31 30 |G 5: ";I|NT(MM*10|
|00000cc0| 30 29 3b 22 25 22 2c 49 | 4e 54 28 48 48 2f 4b 4b |0);"%",I|NT(HH/KK|
|00000cd0| 2a 31 30 30 29 2c 49 4e | 54 28 49 49 2f 4b 4b 2a |*100),IN|T(II/KK*|
|00000ce0| 31 30 30 29 2c 49 4e 54 | 28 4a 4a 2f 4b 4b 2a 31 |100),INT|(JJ/KK*1|
|00000cf0| 30 30 29 0a 34 30 37 30 | 20 50 52 49 4e 54 22 44 |00).4070| PRINT"D|
|00000d00| 4f 47 20 36 3a 20 22 3b | 49 4e 54 28 53 53 2a 31 |OG 6: ";|INT(SS*1|
|00000d10| 30 30 29 3b 22 25 22 2c | 49 4e 54 28 4e 4e 2f 51 |00);"%",|INT(NN/Q|
|00000d20| 51 2a 31 30 30 29 2c 49 | 4e 54 28 4f 4f 2f 51 51 |Q*100),I|NT(OO/QQ|
|00000d30| 2a 31 30 30 29 2c 49 4e | 54 28 50 50 2f 51 51 2a |*100),IN|T(PP/QQ*|
|00000d40| 31 30 30 29 0a 34 30 38 | 30 20 50 52 49 4e 54 22 |100).408|0 PRINT"|
|00000d50| 44 4f 47 20 37 3a 20 22 | 3b 49 4e 54 28 59 59 2a |DOG 7: "|;INT(YY*|
|00000d60| 31 30 30 29 3b 22 25 22 | 2c 49 4e 54 28 54 54 2f |100);"%"|,INT(TT/|
|00000d70| 57 57 2a 31 30 30 29 2c | 49 4e 54 28 55 55 2f 57 |WW*100),|INT(UU/W|
|00000d80| 57 2a 31 30 30 29 2c 49 | 4e 54 28 56 56 2f 57 57 |W*100),I|NT(VV/WW|
|00000d90| 2a 31 30 30 29 0a 34 30 | 39 30 20 50 52 49 4e 54 |*100).40|90 PRINT|
|00000da0| 22 44 4f 47 20 38 3a 20 | 22 3b 49 4e 54 28 41 46 |"DOG 8: |";INT(AF|
|00000db0| 2a 31 30 30 29 3b 22 25 | 22 2c 49 4e 54 28 5a 5a |*100);"%|",INT(ZZ|
|00000dc0| 2f 41 44 2a 31 30 30 29 | 2c 49 4e 54 28 41 42 2f |/AD*100)|,INT(AB/|
|00000dd0| 41 44 2a 31 30 30 29 2c | 49 4e 54 28 41 43 2f 41 |AD*100),|INT(AC/A|
|00000de0| 44 2a 31 30 30 29 0a 34 | 31 30 30 20 50 52 49 4e |D*100).4|100 PRIN|
|00000df0| 54 3a 50 52 49 4e 54 23 | 31 3a 43 4c 4f 53 45 31 |T:PRINT#|1:CLOSE1|
|00000e00| 2c 34 0a 34 31 31 30 20 | 50 52 49 4e 54 22 13 93 |,4.4110 |PRINT"..|
|00000e10| 22 3a 50 52 49 4e 54 22 | 50 52 45 53 53 20 46 2d |":PRINT"|PRESS F-|
|00000e20| 31 20 4b 45 59 20 54 4f | 20 43 4f 4e 54 49 4e 55 |1 KEY TO| CONTINU|
|00000e30| 45 20 54 4f 20 54 48 45 | 20 4e 45 58 54 20 52 41 |E TO THE| NEXT RA|
|00000e40| 43 45 22 0a 34 31 32 30 | 20 50 52 49 4e 54 20 22 |CE".4120| PRINT "|
|00000e50| 50 52 45 53 53 20 46 2d | 37 20 4b 45 59 20 54 4f |PRESS F-|7 KEY TO|
|00000e60| 20 45 4e 44 20 50 52 4f | 47 52 41 4d 22 0a 34 31 | END PRO|GRAM".41|
|00000e70| 33 30 20 47 45 54 20 43 | 24 3a 49 46 20 43 24 3d |30 GET C|$:IF C$=|
|00000e80| 22 22 54 48 45 4e 20 34 | 31 33 30 0a 34 31 34 30 |""THEN 4|130.4140|
|00000e90| 20 49 46 20 43 24 3d 22 | 85 22 54 48 45 4e 20 31 | IF C$="|."THEN 1|
|00000ea0| 30 0a 34 31 35 30 20 49 | 46 20 43 24 3d 22 88 22 |0.4150 I|F C$="."|
|00000eb0| 54 48 45 4e 20 45 4e 44 | 0a 34 31 36 30 20 47 4f |THEN END|.4160 GO|
|00000ec0| 54 4f 20 34 31 31 30 0a |                         |TO 4110.|        |
+--------+-------------------------+-------------------------+--------+--------+